Подпрограммы для работы со стандартными множествами

procedure Exclude(var s: set of T; element: T);
        Удаляет элемент element из множества s
procedure Exclude(var s: set of T; element: T);
        Удаляет элемент element из множества s
procedure Include(var s: set of T; element: T);
        Добавляет элемент element во множество s
procedure Include(var s: set of T; element: T);
        Добавляет элемент element во множество s